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This invention relates to an apparatus and method for Implementing 
Batch Programs 

Typically, a batch program has the following characteristics. 
Processing of large volume of data 
Resource intensive nature 

Ability to recover from errors and restart with minimal loss of 
computations performed so far 
Must finish within a given time-frame 

Designing and developing a batch program is an involved task as 

several orthogonal strategies need to be integrated in a consistent 

and homogenous manner. The issues involved are, 

Memory m anagement 

Recovery and restart 

Scheduling 

Error logging and diagnostics 

In the prior art there is no method or apparatus for generating and 
managing batch programs in a comprehensive manner. 

The salient object of the present invention include 

To provide a comprehensive support for memory management, 

recovery and restart and Error logging and diagnostics 

To provide a Model based generative approach leading to increased 

productivity 

To provide a Framework based solution enabling customization 


The invention will now be described with reference to the 
accompanying drawings, in which 

Figure 1 shows amodel for the proposed batch architecture. 
Figure 2 shows the structure of a batch program; 
Figure 3 illustrates a schematic drawing of a batch function in 
accordance with the present invention; 

Figure 4 illustrates a batch function in accordance with the [resent 
invention; 

Figure 5 illustrate framework classes in accordacne with this 
invention; 

Figure 6 shows how Every modelled batch program is realised as a 
class in accordance with this invention ; 

Figure 7 shows the Function main for every modeled batch 
program generated; 

Figure 8, shows how a batch function model is realised as a class ; 
Figure 9. shows the generated code for a shell of a batch function ; 
Figure 10 shows a code sample how a framework manages memory 
for its invocation; 

Figure 11 shows how all modeled classes inherit from class CppObj 
which provides the behaviour; and 

Figure 12 shows the Template for Set<attributeNam e> method for 
every modelled class. 


Referring to the drawings, Fig 1 shows a model for the proposed 
batch architecture. The salient features of the model shown in 
Figure 1 are, 

BatchPgm denotes an executable program which can be scheduled 
using a batch scheduler. 

A batch program is a set of batch functions being invoked in a 
sequence as well as in a nested manner. 
A batch function is characterised by, 

A data provider providing the data to be processed by Process 
function 

Pre, Process and Post operations (as an Operation in UML), 
Context class encapsulating the restart information as well as the 
information to be passed between Pre, Process and Post operations 
A property to indicate if memory management for this batch 
function should be provided by the framework 
The above associations are optional. 

A batch program has a starting batch function associated with it. It 
is the first batch function to be invoked when program control 
reaches the batch program. 

2.1.1 Structure of a batch program 

The batch architecture model defines the structure of a batch 
program. Model based generative approach provides an automated 
mechanism for realising this structure. Framework supported 
realisation renders flexibility to the structure. 

A batch program is an independent process. 


A batch program conforms to the structure seen in Figure 3 of the 
accompanying drawings, 


Stepl: Perform system initialisations 

Step2: Perform set up required for this batch program to be 
invoked 

Step3: Invoke starting batch function of this batch program by 
passing the necessary context information 
Step4: Log errors, if any. 
Step5: Perform wind up activities for this batch 
Step6: Release system resources obtained, if any. 
Step 7: Return with the status 

The framework provides a default behaviour for steps 1, 4, 5 and 6 
above. User can override the default behaviour. 

2.1.2 Structure of a batch function 

A batch function is invoked either through a batch program (as its 
starting function) or through Pre-, Process- or Post- operations of 
another batch function of the batch program as shown 
schematically in figure 2 

A batch function accepts restartFlag and batch program context as 
input parameters, batch function context as in -out parameter and 
returns status. A batch function conforms to the structure as seen 
Figure 4 of the accompanying drawings, 
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The structure seen in Figure 4 reflects purely the structure of a 
batch function. Behaviour of a batch function is provided by Pre, 
Post and Process operations and is completely under the control of 
user. Nesting of batch functions is possible by invoking a batch 
function (callee) from the Process operation of a batch function 
(caller). Sequencing of batch functions is possible by invoking a 
batch function (next) from the Post operation of a batch function 
(current) or a batch function (prev) from the Pre operation of a 
batch function (current). 

Framework provides default behaviour for CommitQ which can be 
overridden. Framework provides a modeling abstraction for data 
provider and ageneration mechanism for the same. 
The data provider is responsible for providing the data to be 
processed by a batch function. Typically, the data is provided by a 
database query in chunks using cursor. Output of data provider is 
passed as input to the Process operation of a batch function. Data 
provider is expected to make use of the context class of the batch 
function so as to provide correct chunk of data in normal as well as 
restart mode of operation. 

Context class of a batch function encapsulates the following, 
Restart information for the batch function 
Restart data for the data provider 

Data required for Pre, Post and Process operations to communicate 
with each other 


Framework ensures that context of a batch function is written to 
persistent storage at the tim e of com m it. 

Framework classes provide a default behaviour for commit control 
based on commit frequency. These classes can be overridden to 
provide customised commit control as explained later. 

Batch architecture is supported through two public classes viz., 
BatchPgm and BatchFunction, and a persistent table 
BatchControlTable containing < BatchProgramld, RestartStatus, 
BatchContextinserialisedform >. 

Framework classes are illustrated in figure 5 of the accompanying 
drawings 

Every modelled batch program is realised as a class as shown in 
figure 6 of the accompanying drawings , 

Function main for every modeled batch program is generated as 
shown in Figure 7, 

Every batch function modelled is realised as a class as shown in 
Figure 8, 

Generated code for a shell of a batch function is as shown in 
Figure 9. 


2.4 Memory management 

A batch function can be tagged as Memory Managed in the model. 
In which case, framework manages memory for its invocation as 
shown in the code sample as seen in Figure 10. 

All modelled classes inherit from class CppObj which provides the 
behaviour as seen in Figure 11 of the accompanying drawings , 

Template for Set<attributeName> method for every modelled class 
is as seen in Figure 12 of the accompanying drawings, 
Application errors encountered so far are collected, along with the 
application context, in a in-memory container object. The container 
class provides methods for logging the errors to a persistent storage. 
The framework calls these methods at commit and exit points. 
Framework provides a default implementation which can be 
overridden by user. 

The Framework as envisaged in accordance with this invention 
supports multi-threading through data dependent routing. The data 
to be processed is divided into multiple (say N) orthogonal sets and 
this separation of data is apriori (and hence possible to code in a 
data provider of a batch function). Thus, multi-threading like 
behaviour is achieved by invoking the N batch programs 
simultaneously through a batch scheduler 

The framework allows the following behaviours to be customised: 
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Initialisation of a batch program through overridden 
<Batch Pro gram Nam e>::Init() 

Commit behaviour of a batch program through overridden 
< Batch Pro gram Nam e>::Commit() and 
< Batch Program Nam e> : :R esetC om m itlnf o () 

Commit behaviour of a batch function through overridden 
<BatchFunctionName>::Commit() and 
<BatchFunctionName>::ResetCommitInfo() 

Class BatchProgram provides a shared area, in the form of Darray 
commitArray, for co-ordinating commits between a batch program 
and its batch functions 

Error logging behaviour through overridden 
<BatchProgramName>::LogErrors() method. Framework supplies 
the errors encountered in a global Darray. 

External world can call batch functions through 
BatchPgm ::CallBatchFunction(). 

The invention envisaged in accordance^ with this invention , 
Provides tool support for generating and managing batch programs 
in a comprehensive manner and automates it to a large extent. 
Provides a higher level of abstraction 

Provides increased productivity due to model based generative 
approach 
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Addresses the complex issues such as Memory management, 
Recovery and restart, Scheduling, and Error logging by providing a 
default behaviour 

Enables custom is ability due to framework based approach 
Delivers a platform-agnostic solution which can be easily realised 
on other equivalent platforms 

Although the invention has been described in terms of particular 
embodiments and applications, one of ordinary skill in the art, in 
light of this teaching, can generate additional embodiments and 
modifications without departing from the spirit of or exceeding the 
scope of the invention. Accordingly, it is to be understood that the 
drawings and descriptions herein are proffered by way of example 
to facilitate comprehension of the invention and should not be 
construed to limit the scope thereof. 



Of R. K. Dewan & Co 


* > 


Applicants' Patent Attorney 
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Figure 2. Structure oz" a batch program 


Int main( int argc, char *argv) 
{ 

Figure 3 
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If ( restart ) 
Then 

Obtain batch function context at the time of last successful 
commit . 

If { previous failure was in Pre function ) Then goto Pre. 
If ( previous failure was in Process function ) Then goto 
Process . 

If ( previous failure was in Post function ) Then goto Post. 

Else 

Obtain batch function context from the input parameter. 

Fi 

Pre: 

Push context of this batch function onto stack 

Invoke Pre operation of the batch function by passing the necessary 
parameters . 
Pop the stack 

Process : 

For all objects fetched by the associated data provider 
Do 

Push context of this batch function onto stack 
Invoke Process operation of the batch function by passing the 
necessary parameters. 

Invoke Commit operation of the framework 
Pop the stack 

Done 
Post: 

Push context of this batch function onto stack 

Invoke Post operation of the batch function by passing the necessary 
parameters . 
Pop the stack 


Figure 4 
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Typedef ErrorStatus (*BatchFn) (BatchPgm*, CppObj*, CppObj*&); 

Class BatchPgm 
{ 

protected: 

long count; // counter 

long commitThreshold; // commit frequency 

BatchFn startingBatchFunction; J 
char *batchPgmId; 
long restartStatus; 

// context of starting batch function 
CppObj *startFuncContext; . 

// Stack of Batch Function contexts 
XLDArray *bf RestartStack; 

// Stack of Batch Function contexts . 
XLDArray *bfContextStack; 

// Darray of < xx <batchFunctionName>", void * > 
// i.e. struct CommitControl used by overriding 
// Commit () functions 
'0- // void * serves as shared memory using which BatchProgram and 


// BatchFunction coordinate commit behaviour. For example, the 
// data could be <batchFunctionName> instance in a serialised 
// form 

Darray *commitArray; 
// Array to hold 

// <batchFunctionName, batchFunction, memMgmtFlag, BatchFunction> 
// tuples for the batch program 

static BatchFunctionDescriptor batchFunctionArray [ ] ; 


Fig - 5 ( continued ) 
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Public: 


// Constructor 

<BatchProgram> ( char *batchProgramId, BatchFn startFunc ) : 
batchPgmld (batchProgramld) , startingBatchFunction ( startFunc) 
{ 

bf ContextStack = new XLDArray; 
bf RestartStack = new XLDArray; 
commitAry = new DArray; 
startFuncContext = NULL; 


long GetRestartStatus ( ) { return restartStatus ; } 


// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 


To set up DB connections, initialise memory pools, message 
array etc. after invoking Init ( argc, argv ) 
Format of configuration file for a batch program 
BatchProgram <batchProgramName> 

{ . 
commitThreshold = <value>; 
batchPgmld = <value>; 

DbConnectionlnf o = <DbConnectionString>; 
BatchFunction <batchFunctionName> 


{ 


commitThreshold = <value>; 


ErrorStatus Setup ( int argc, char *argv [] ) 
{ 

// Parse input arguments 

// -c gives configuration file name for batch program 
char *configFileName; 

// Open config file and set the following 
/ / - BatchPgm: : commitThreshold 
// - BatchPgm: : batchPgmld . 


Fig - 5 ( continued ) 
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// - for each BatchFunction specified 

// - Instantiate <BatchFunction> object 

// - Set cornmitThreshold 

// - Add to the corresp element in 

// batchFunctionArray 

// - for each BatchFunction. not specified 

// - Instantiate <BatchFunction> object 

// - Set cornmitThreshold = 0 

// - Add to the corresp element in 

/ / batchFunctionArray 

// 

// - Read DbConenctionlnf o and connect to DB 
// 

// If config file does' nt exist or is empty or the field 

// unspecified 

// - set BatchPgm: : cornmitThreshold = 1 

// - for each element in batchFunctionArray 

// - Instantiate <BatchFunction> object 

// - Set cornmitThreshold = 0 

// - Add to the corresp element in 

// batchFunctionArray 


return Init ( argc, argv ) ; 

} 


// Complementary of Setup ( ) 
ErrorStatus Cleanup ( ) ; 

// default Init ( ) implementation supplied by framework 
Virtual ErrorStatus Init { int argc, char *argv ){} 

// Entry point of the batch program 
ErrorStatus Exec ( ) 


Fig - 5 ( continued ) 
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{ 

ErrorStat retVal; 

BatchControlInf o *batchControlInf o = 

new BatchControlInf o ( batchPgmld ) ; 

retVal =• batchControlInf o->Get ( ) ; 

if ( retVal != DM_SUCCESS ) 

{ 

batchControlInfo->SetRestartStatus ( FRESH ) ; 
. restartStatus = FRESH; 
retVal = batchControlInf o->Create () ; 
if ( retVal != DMJSUCCESS ) 
{ 

return ERROR; 

} 

} 

else 
{ 

restartStatus = RESTART; 
bf Res tart Stack->unBundle 

(batchControlInf o->GetBatchContextBuf f er ( ) ) 

} 

retVal = startingBatchFunction ( this, startFuncContext, 

startFuncContext ) ; 

if ( retVal == SUCCESS ) 
{ 

retVal = Commit ( FORCED ); 
if( retVal != SUCCESS ) 
{ 

return ERROR; 

} 

. r 

batchControlInf o->Delete ( ) ; 
return SUCCESS; 

} 

return ERROR; 


i 


Fig - 5 ( continued ) 


MOHAN DEWAN 
APPLICANT'S PATENT ATTORNEY 


* 


NAME : TATA CONSULTANCY SERVICES NO. OF SHEETS : 20 

( TATA SONS LIMITED) SHEET NO. : 8 

NO. /MUM/ 01 

PROVISIONAL SPECIFICATION . 


// default Commit () implementation supplied by framework 

Virtual ErrorStatus Commit ( int flag = UNFORCED ) 

{ 

count++; 

if ( flag == FORCED | | count > commitThreshold ) 
{ 

BatchControlInf o *bdnfo = 

new BatchControlInf o ( batchPgmld ); 

long size = bfContextStack->sizeOf Class () ; 

char *buf = new char [size] ; 

bf ContextStack->bundle ( buf ) ; 

bclnf o->SetBatchContextBuf f er ( buf • ) ; 

bclnf o->SetRestartStatus ( RESTART ) ; 

status = bclnf o->Modify ( ) ; 

if ( status == ERROR ) 

{ 

return ERROR; 

} 

status = MC_Commit ( ) ; 
if ( status === ERROR ) 
{ 

return ERROR; 

} 

ResetCommitlnfo ( ) ; 
c return SUCCESS; 

} 

return SUCCESS; 

} 

, // default ResetCommitlnfo ( ) implementation supplied by framework 
Virtual void ResetCommitlnfo () 
{ 

count = 0; 

int nElem = sizeof ( batchF.unctionArray ) 

/ sizeof ( BatchFunctionDescriptor ) ; 
for( int 1=0; I < nElem; I++ ) 
{ 

BatchFunctionDescriptor *elem =batchFunctionArray [ I] ; 
BatchFunction *bf = elem->bf Commit ; 
Bf->ResetCommitInf o ( this ); 


Fig - 5 ( continued ) 
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// default LogErrorsO implementation supplied by framework 

Virtual void LogErrorsO 

{ 

Message *elem; 

For(int 1=0, nElem=messageArray->nElem( ) ; I < nElem; I++) 
{ 

elem = ( *messageArray) [nElem] ; 
elem->LogErrors ( ) ; 

} 

} 

ErrorStatus GetMyContext (int &lbl, char *bfName, CppObj *&cntxt ) 

{ - 

int nElem = bf Restarts tack->nElem( ) ; 

if ( nElem == 0 )" 
{ 

return EMPTY; 

} 

for (int 1=0; I < nElem; I++) 
{ • - - 

BFStackFrame *elem; 

Elem = (BFStackFrame *) ( ( *bf RestartStack) [I] ) ; 
Iff ! strcmp ( batchFunctionName, elem->GetName ( ) ) ) 
{ 

if ( cntxt->IsDeepCopyReqd ( ) ) 
{ 

cntxt->DeepCopy (elem->GetContext ( ) , 

cntxt) ; 

} 

else 
{ 

cntxt = elem->GetContext ( ) ; 

} 

lbl = elem->GetLabel () ; 
bfRestartStack->Delete ( elem ); 
return SUCCESS; 

} 

} 

return ERROR; 

j 


Fig - 5 ( continued ) 
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ErrorStatus PushContext ( int label, char *batchFunctionName, 

CppObj ^batchFunctionContext ) 

{ 

BFStackFrame *elem = 

new BFStackFrame ( label, batchFunctionName, 

batchFucntionContext ) ; 
BfContextStack->Append ( elem ); 

} 

ErrorStatus PopContext ( int& lbl, CppObj & batchFunctionContext ) . 
{ 

BFStackFrame *elem; 

Int nElem = bf ContextStack->nElem ( ) ; 

Elem = (*BTStackFrame *)( (*bf ContextStack) [nElem - 1] ) ; 
BatchFunctionContext = elem->GetContext ( ) ; 
Lbl = elem->GetLabel ( ) ; 
BfContextStack->Delete ( elem ); 

} 

BatchFunctionDescriptor * Sear chBatchFunction (char* bfName ) 
{ 

// Performs binary search over batchFunctionArray [ ] 
// to return the array element 

// Array initialisation code should be generated 
// from the model so as to have batchFunctionNames 
// in the sorted order 

} 

ErrorStatus CallBatchFunction ( char *bfName, CppObj *cntxt ); 


Class BatchControlInfo 
{ 

private: 

char. *batchPgmId; 

Long restartStatus ; 

Void *batchContextBuf f er; 


Public: 

// Default constructor 
BatchControlInfo! char *pgmld ) 
{ 

batchPgmld = pgmld; 
batchContextBuf fer = NULL; 

} 


Fig - 5 ( continued ) 
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void *GetBatchContextBuf fer () { return batchContextBuf f er ; } 
void SetBatchContextBuf f er ( void *buf ) 
{ 

batchContextBuf fer = buf; 

} 

void *GetBatchPgmId ( ) { return batchPgmld; } 

void SetBatchPgmld ( char *id ) 

{ 

batchPgmld = id; 

} 

void *GetRestartStatus{) { return restartStatus ; } 

void SetRestartStatus ( long val ) 

{ 

restartStatus = val; 

} 

// Std DM Create () method ^ 
ErrorStatus Create { ) {} 

// Std DM Get() method 
ErrorStatus Get ( ) { } 

// Std DM Modify () method' 
ErrorStatus Modify () {} 

// Std DM Deleted method 
ErrorStatus Delete () {} 

}; 

class BFStackFrame : CppObj 
{ 

private: 
f char *name; 

CppObj * context; 

int label; // enum of PRE, POST and PROCESS 
Public: 

BFStackFrame ( int Ibl, char *nm, CppObj *o ) : 

label (lbl) , name (run), context (o) {} 
Char *GetName() { return name; } 
CppObj *GetContext ( ) { return context; } 
Void SetLabeK int val ) { label = val; } 
Int GetLabelO { return label; } 

} 


Fig - 5 ( continued ) 
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Class BatchFunction 
{ 

protected: 

long count; 

long commitThreshold; 
public: 

virtual char *GetBatchFunctionName ( ) { return xw '; } 

virtual ErrorStatus Commit ( BatchProgram *bp ) 
{ 

BatchFunctionDescriptor *bpDesc = 

bp->SearchBatchFunction ( GetBatchFunctionName ( ) ) ; 

BatchFunction *singleton = bpDesc->bf Commit ; 
Singleton->count++; 

If (singleton->coramitThreshold != 0 ) 
{ 

If( singleton->count > singleton->commitThreshold ) 
{ 

return bp->Commit( FORCED ); 

} 

fefe - - } 

bp->Commit ( ) ; 

} 

// default implementation provided by framework 
"2?* virtual void ResetCommitlnf o (BatchPgm *bp) 

{ 

count = 0; 

) 

In- 


struct BatchFunctionDescriptor 
{ 

char *batchFunctionName; 
BatchFn batchFunction; 
Bool memMgmtReqd; 
BatchFunction *bfCommit; 

} 

Struct CommitControl 
{ 

char *batchFunctionName; 
void *commitData; 

} 

Figure 5 
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Class <BatchPrograinName> : BatchPgm 
{ 

public: 

<BatchProgram> ( char *batchProgramId, BatchFn startFunc ) : 
BatchPgm( batchProgramld, startFunc ) {} 

ErrorStatus Init ( int argc, char* argv ) 
I 

// default behaviour provided by framework can be 
// overridden to set startFuncContext as required 
return BatchPgm: : Init ( srgc, argv ); 

} 

ErrorStatus Commit ( ) 
{ 

// default behaviour provided by framework can be 
// overridden as required 
return BatchPgm: : Commit ( ) ; 

} 

// This function overrides ResetCommitlnf o ( ) 

ErrorStatus ResetCommitlnf o ( ) 

{ 

BatchPgm: : ResetCommitlnf o ( ) ; 

// Codes the overriding behaviour here 


void LogErrors ( ) 
{ 

// default behaviour provided by framework can be 
// overridden as required 
return BatchPgm: : LogErrors ( ) ; 

} 

}; 

static <BatchProgramName>: :batchFunctionArray [] = 
{ 

{ "<batchFunctionName>", <BatchFunctionName> : : sh_<batchFunctionName>, 
TRUE / FALSE, NULL }, 
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Int main ( int argc, char *argv) 
{ 

ErrorStatus retVal; 

// Instantiate the modelled batch program 
<BatchProgramName> *batchProgram = 

new <BatchProgramName>(<BatchProgramName> / <startBatchFunction>) ; 

retVal = batchProgram->Setup ( argc, argv ); 

if{ retVal == ERROR ) 

{ 

batchProgram->LogErrors () ; 
exit (1) ; 

} 

retVal = batchProgram->Exec ( ) ; 

if( retVal == ERROR ) 

{ 

batchProgram->LogErrors ( ) ; 
exit (1) ; 

} 

retVal = batchProgram->Cleanup ( ) ; 
- if ( retVal === ERROR ) 
{ 

batchProgram->LogErrors ( ) ; 
exit (1) ; 

} 

exit (0) ; 

} 

Figure 7 
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Class <BatchFunctionName> : Batch Function 
i 

public: 

// Pre, Process and Post methods are implemented by user 
ErrorStatus • Pre (BatchPgm *batchProgram, <Context> *inContext, 

<Context> *& outContext ) ; 

ErrorStatus Process ( BatchPgm *batchProgram, <Context> 

*inContext, <ReturnTypeOf DataProcessor> *inData, <Context> *&outContext 

) ; 

ErrorStatus Post ( BatchPgm *batchProgram, <Context> *inContext, 
<Context> outContext ) ; 

// sh_<batchFunctionName> is generated 

ErrorStatus sh_<batchFunctionName> ( BatchPgm *batchProgram, ^ 
<Context> *inContext, <Context> *& outContext ) ; w 

Char *GetBatchFunctionName ( ) { return "<BatchFunctionName>"; }^ 

// This function overrides commit ( ) - . 

ErrorStatus Commit ( BatchPgm *bp ) 

{ 


// This function overrides ResetCommitlnf o ( BatchPgm *bp ) 
ErrorStatus ResetCommitlnf o (BatchPgm *bp) 
{ . 

BatchFunction: : ResetCommitlnf o (bp) ; 

// Codes the overriding behaviour here 


BatchFunction: : Commit ( bp ) ; 

// Codes the overriding behaviour here 


Figure 8 
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ErrorStatus <BatchFunctionName> : : sh_bf 1 ( BP1 *batchProgram, 
Conl *inContext, Conl *& outContext ) 

{ 

ErrorStatus status; 
Int Ibl; 

Long restartStatus = batchProgram->GetRestartStatus ( ) ; 

Conl * context = ( inContext == NULL ) ? new Conl : inContext; 

If( restartStatus == RESTART ) 

status = batchProgram. GetMyContext(lbl, "bfl", context ); 

if ( status != EMPTY ) 

{ 

if ( status != SUCCESS ) 
{ 

return ERROR; 

} 

switch ( lbl ) 
{ 

case PRE: goto Pre_label; 

case PROCESS: goto Process_label ; 

case POST: goto Post_label; 

} 

} 

Pre_label: 

Status = batchProgram. PushContext ( PRE, "bfl", context ); 

if ( status != SUCCESS ) 

{ 

return ERROR; 

} 

Status = Pre_bfl( batchProgram, context, context ); 

if ( status != SUCCESS ) 

{ 

return ERROR;. 

} 

Status = batchProgram. PopContext ( lbl # context ); 

if( status != SUCCESS ) 

{ 

return ERROR; 

} 


Figure 9 ( continued ) 
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Process_label : 

// Return value of data provider of bf 1 
DPl_out * dataObj = new DPl_out; 

Status = DPI:: Open ( context ); 

if( status != SUCCESS ) 

{ 

return ERROR; 

} 

While { 1 ) 
{ 

status = DPI:: Fetch ( dataObj ); 

if ( status == ERROR ) , 

{ 

return ERROR; 

} 

if { status == DATA OVER ) break; 


Status=batchProgram. PushContext (PROCESS, xx bf 1" , context ) ; 

if ( status != SUCCESS ) 

{ 

return ERROR; 

} 

status=Process_bf 1 ( batchProgram, context, 

dataObj, context ); 
if( status != SUCCESS ) 
{ 

return ERROR; 

} 

status = Commit ( batchProgram ) ; 

if( status != SUCCESS ) 

{ 

return ERROR; 

} 

Status = batchProgram. PopContext ( lbl, context ); 

if( status != SUCCESS ) 

{ 

return ERROR; 

} 


Figure 9 ( continued ) 
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DPI : : Close ( ) ; 
Post_label: 

Status = batchProgram. PushContext ( POST, "bfl", context ); 
if( status != SUCCESS ) • 

{ - 

return. ERROR; 

} 

Status = Post_bfl( batchProgram, context, context ); 

if( status != SUCCESS ) 

{ 

return ERROR; 

} 

Status = batchProgram. PopContext ( Ibl, context ); 

if ( status != SUCCESS ) 

{ 

return ERROR; 

J 

outContext = context; 
return SUCCESS; 


Figure 9 
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ErrorStatus BatchPgm: : CallBatchFunction (char *bfName, CppObj * cntxt ) 
{ 

long Prevld, poolld; 

BatchFunctionDescriptor *bf Descriptor; 
ErrorStatus status; ■ . 

Bf Descriptor = SearchBatchFunction ( bfName ); 

If ( bf Descriptor == NULL ) 

{ 

return ERROR; 

} 

if ( bf Descriptor->memMgmtReqd ===== TRUE ) 
{ 

prevld =» GetCurPoolId ( ) ; 
poolld = CreatePool ( ) ; 
SetCurPool ( poolld ) ; 
If ( cntxt != NULL ) 
{ 

cntxt . SetDeepCopy( TRUE ); 

} 

} 

status = bf Descriptor->batchFunction ( this, cntxt ); 

if( status != SUCCESS ) 

{ 

return ERROR; 

} 

if ( bf Descriptor->mernMgmtReqd == TRUE ) 
{ 

SetCurPool ( prevld ) ; W 
FreePool ( poolld ) ; 

J 


Figure 10 
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Class CppObj ' -^L^* 

private : 

ErrorStatus deepCopyFlag; 

public: 

void SetDeepCopy( ErrorStatus value ) { deepCopyFlag = value; ) . 
ErrorStatus IsDeepCopyReqd ( ) {return deepCopyFlag; } 
ErrorStatus DeepCopy ( CppObj *src, CppObj *dest ) 

{ 

long size = src->sizeOf Class () ; 
char *buf = new char [ size ] a 
src->bundle{ buf ); 
dest->unbundle ( buf ) ; 
return SUCCESS; 


} 


} 

Figure 1 1 


<modelledClass> :: Set<attributeName> ( <modelledClassMember> *src ) 

{ 

if( IsDeepCopyReqd () ) 

DeepCopy ( src, this-xattributeName> ); 

} 

else 
{ 

<attributeName> = src; 

) 

} 

Figure 12 
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